TI-99/4a

5 rem LogiTrumps
10 DATA"zx80",-1980,1,2,"a500",-1987,512,4096,"c16",-1984,16,121
20 DATA"atari400",-1979,8,128,"c64",-1982,64,16,"c128",-1985,128,16
30 DATA"a][",-1977,4,15,"cpc464",-1984,64,27
32 DIM PP(10)
34 DIM CC(10)
40 U=2
50 R=4
60 E=4
70 CALL CLEAR
80 FOR C=0 TO 7
90 PRINT"LOGItrumps"

100 READ T$(C)
105 FOR F=0 TO 2
110 READ A(C,F)
120 NEXT F
130 P=INT(RND*8)
170 Q=0
180 FOR I=0 TO 7
188 IF p<7 then 192
190 p=-1
192 P=P+1

200 Q=P*(PP(P)=CC(P))*(Q=0)+Q
210 NEXT I
220 PP(Q)=(C+1)*-(C<4)
230 CC(Q)=(C-3)*-(C>3)
240 NEXT C

300 N=N+1
310 P=0
320 C=0
330 FOR I=0 TO 7
340 C=C-(CC(I)=N)*I
350 P=P-(PP(I)=N)*I
360 NEXT I
370 B=-(A(C,2)>16)*2

400 PRINT R;":";E
410 S=P
420 GOSUB 900
430 S=C
440 PRINT"1-3: ";
450 IF U=0 THEN 490 
460 INPUT B
470 B=B-1
480 goto 500
490 PRINT B+1

500 S=C
510 GOSUB 900

600 PP(P)=N+R
605 CC(C)=N+E
610 IF A(P,B) <=A (C,B) THEN 700
620 PRINT":-)" 
630 PP(C)=N+R+1
632 CC(C)=0
634 R=R+1
636 E=E-1
638 U=1

700 IF A(P,B) >= A(C,B) THEN 800
710 PRINT ":-("
712 CC(P)=N+E+1
714 PP(P)=0
716 R=R-1
718 E=E+1
720 U=0

800 IF E=0 THEN 810 else 830
810 PRINT "won!"
820 END
830 IF R=0 THEN 840 else 300
840 PRINT "lost!"
850 END

900 PRINT T$(S)
910 PRINT "1) ";0-A(S,0)
920 PRINT "2) ";A(S,1);"kb"
930 PRINT "3) ";A(S,2);"cols"
940 RETURN
